home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / add123 / prlmain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.8 KB  |  94 lines
  1. unit Prlmain;
  2. { Program for Testing U123 Unit
  3.   TAKE CARE !, No validations of any kind !
  4.  
  5.   - Open then File FIrst;
  6.   - Add Waht you want
  7.   - Close Then File
  8. }
  9.  
  10. interface
  11.  
  12. uses
  13.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  14.   Forms, Dialogs, StdCtrls, ExtCtrls, Buttons;
  15.  
  16. type
  17.   TFPrl = class(TForm)
  18.     Edit1: TEdit;
  19.     Button1: TButton;
  20.     Edit2: TEdit;
  21.     RGTipo: TRadioGroup;
  22.     Button2: TButton;
  23.     Edit3: TEdit;
  24.     Edit4: TEdit;
  25.     Label1: TLabel;
  26.     Label2: TLabel;
  27.     Label3: TLabel;
  28.     Label4: TLabel;
  29.     Button3: TButton;
  30.     Bevel1: TBevel;
  31.     Bevel2: TBevel;
  32.     BitBtn1: TBitBtn;
  33.     Memo1: TMemo;
  34.     procedure Button1Click(Sender: TObject);
  35.     procedure Button2Click(Sender: TObject);
  36.     procedure Button3Click(Sender: TObject);
  37.     procedure BitBtn1Click(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   FPrl: TFPrl;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. USES U123;
  52.  
  53. procedure TFPrl.Button1Click(Sender: TObject);
  54. begin
  55.      Open123(Edit1.Text);
  56. end;
  57.  
  58. procedure TFPrl.Button2Click(Sender: TObject);
  59. var
  60.    c,f  : integer;
  61.    cod  : integer;
  62.    vi   : integer;
  63.    vr   : double;
  64.    v    : string;
  65. begin
  66.      v:=Edit2.Text;
  67.      c:=StrToInt(Edit3.Text);
  68.      f:=StrToInt(Edit4.Text);
  69.  
  70.      val(v,vi,cod);
  71.      val(v,vr,cod);
  72.  
  73.      Case RGTipo.ItemIndex of
  74.           0 : Add123Int(c,f,vi);
  75.           1 : Add123Rea(c,f,vr);
  76.           2 : Add123TXL(c,f,v);
  77.           3 : Add123TXR(c,f,v);
  78.           4 : Add123TXC(c,f,v);
  79.           5 : Add123FML(c,f,v);
  80.      end;
  81. end;
  82.  
  83. procedure TFPrl.Button3Click(Sender: TObject);
  84. begin
  85.      Close123;
  86. end;
  87.  
  88. procedure TFPrl.BitBtn1Click(Sender: TObject);
  89. begin
  90.      Close;
  91. end;
  92.  
  93. end.
  94.